home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / modula.zoo / _defn_mathcom.def < prev    next >
Text File  |  1988-04-26  |  838b  |  31 lines
  1. DEFINITION MODULE MathCom;
  2.  
  3.   (* Version 1.2 of 94/07/08 *)
  4.  
  5.   (* Common to MathLib0 and MathLib1 *)
  6.  
  7.  
  8.   CONST
  9.     pi =     3.1415926535897932384626434;
  10.     twoopi = 2.0 / pi;
  11.     pio2 =   pi / 2.0;
  12.     pio4 =   pi / 4.0;
  13.     sqrt2 =  1.4142135623730950488016887;
  14.  
  15.   PROCEDURE frexp (value: REAL; VAR exp: INTEGER): REAL;
  16.     (* Returns the real mantissa x of value and an integer exp
  17.        such that value = x * 2 ** exp *)
  18.  
  19.   PROCEDURE ldexp (value: REAL; exp: INTEGER): REAL;
  20.     (* Returns value * 2 ** exp *)
  21.  
  22.   PROCEDURE modf (value: REAL; VAR int: INTEGER): REAL;
  23.     (* Returns the positive fractional part of value and (by int)
  24.        the integer part *)
  25.  
  26.   PROCEDURE sarctan (arg: REAL): REAL;
  27.     (* Reduces its positive argument to the range {0 .. 0.414}
  28.        and calls xatan *)
  29.  
  30. END MathCom.
  31.